home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / dev / amos / AMOS0398.lzh / AMOSLIST / 000166_amos-request@svcs1.digex.net_Tue Mar 17 19:54:57 1998.msg < prev    next >
Text File  |  1998-04-01  |  2KB  |  54 lines
  1. >From amos-request@svcs1.digex.net  Tue Mar 17 19:54:57 1998
  2. Received: from svcs1.digex.net (svcs1.digex.net [204.91.197.224])
  3.     by pony-1.mail.digex.net (8.8.8/8.8.8) with ESMTP id TAA10403
  4.     for <mcox@access.digex.net>; Tue, 17 Mar 1998 19:54:57 -0500 (EST)
  5. Received: (from daemon@localhost)
  6.     by svcs1.digex.net (8.8.5/8.8.5) id RAA18808
  7.     for amos-out; Tue, 17 Mar 1998 17:35:47 -0500 (EST)
  8. Received: from pony-1.mail.digex.net (pony-1.mail.digex.net [204.91.241.5])
  9.     by svcs1.digex.net (8.8.5/8.8.5) with ESMTP id RAA18805
  10.     for <amos-list@svcs1.digex.net>; Tue, 17 Mar 1998 17:35:46 -0500 (EST)
  11. Received: from star.flashnet.it (star.flashnet.it [194.247.160.2])
  12.     by pony-1.mail.digex.net (8.8.8/8.8.8) with ESMTP id RAA02187
  13.     for <amos-list@access.digex.net>; Tue, 17 Mar 1998 17:35:40 -0500 (EST)
  14. Received: from ip036.pool-17.flashnet.it (Berionne@ip036.pool-17.flashnet.it [195.191.2.164])
  15.     by star.flashnet.it (8.8.7/8.8.6) with SMTP id XAA17120
  16.     for <amos-list@access.digex.net>; Tue, 17 Mar 1998 23:35:33 +0100
  17. Date: 17 Mar 98 19:36:18 +0100
  18. From: "Michele Berionne" <berionne@flashnet.it>
  19. Subject: Re: Re[3]: Sorting problems
  20. To: "Nathan Reynolds" <amos-list@access.digex.net>
  21. In-Reply-To: <199803161704.RAA08368@hermes.clara.net>
  22. Message-ID: <687.380T947T11764580@flashnet.it>
  23. MIME-Version: 1.0
  24. Content-type: text/plain; charset=iso-8859-1
  25. Content-transfer-encoding: 8bit
  26. X-Mailer: THOR 2.5a (Amiga;TCP/IP)
  27. Status: O
  28. X-Status: 
  29.  
  30. Hi there!
  31.  
  32.  > For FOO=1 To 128
  33.  >   For FOO2=1 to 128
  34.  >     If NAME$(FOO)<NAME$(FOO2) And FOO<>FOO2
  35.  >       Swap NAME$(FOO),NAME$(FOO2)
  36.  >       Swap BANKNUM(FOO),BANKNUM(FOO2)
  37.  >     EndIf
  38.  >   Next
  39.  > Next
  40.  
  41. Don't use something like this: it repeats 128^2 times the same operations,
  42. even if the data are already sorted.
  43. You can better think about a loop with a flag: if the datas are sorted,
  44. exit from the loop.
  45.  
  46. Bye
  47.  
  48.  
  49.  
  50.     berionne@flashnet.it                       >>Flagger<<
  51.   +---------------------------------------------------------------+
  52.   |���BASIC programmers never die, they GOSUB and don't RETURN.   |
  53.   +---------------------------------------------------------------+
  54.